home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / pc / vikingw.dir / 01647_Script_Raiders < prev    next >
Text File  |  1995-09-12  |  3KB  |  112 lines
  1. global gbeenclicked, gQuest
  2.  
  3. on VRaidersRollovers
  4.   set gbeenclicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(5) then
  7.       VikingCursor
  8.       repeat while rollover(5)
  9.         if the mousedown then
  10.           set gbeenclicked = 1
  11.         else 
  12.           if gbeenclicked = 1 then
  13.             AnimateRaiders
  14.           end if
  15.         end if
  16.       end repeat
  17.     else
  18.       if rollover(18) then
  19.         repeat while rollover(18)
  20.           set the locH of sprite 16 to 240
  21.           set the locV of sprite 16 to 250
  22.           set the locH of sprite 17 to 108
  23.           set the locV of sprite 17 to 327
  24.           updatestage
  25.         end repeat
  26.         set the locH of sprite 16 to 940
  27.         set the locH of sprite 17 to 908
  28.         updatestage
  29.       else
  30.         if rollover(41) then
  31.           HandCursor
  32.         else
  33.           if rollover(42) then
  34.             HandCursor
  35.           else
  36.             ArrowCursor
  37.           end if
  38.         end if
  39.       end if
  40.     end if
  41.   end if
  42.   RandomQuestion(gQuest)
  43. end
  44.  
  45. on AnimateRaiders
  46.   ArrowCursor
  47.   set RunThruCount = 0
  48.   set gCast1 = the castNum of sprite 2
  49.   set gCast2 = the castNum of sprite 3
  50.   puppetsound "SV310201.AIF"
  51.   updatestage
  52.   repeat while RunThruCount < 2 and (the MouseUp)
  53.     set the castNum of sprite 2 = gCast1 + 1
  54.     updatestage
  55.     Wait .3
  56.     if the mousedown then
  57.       exit repeat
  58.     end if
  59.     
  60.     set the castNum of sprite 3 = gCast2 + 1
  61.     updatestage
  62.     Wait .3
  63.     if the mousedown then
  64.       exit repeat
  65.     end if
  66.     
  67.     set the castNum of sprite 2 = gCast1
  68.     set the castNum of sprite 3 = gCast2 + 2
  69.     updatestage
  70.     Wait .3
  71.     if the mousedown then
  72.       exit repeat
  73.     end if
  74.     
  75.     set the castNum of sprite 3 = gCast2 + 3
  76.     updatestage
  77.     Wait .3
  78.     if the mousedown then
  79.       exit repeat
  80.     end if
  81.     
  82.     set the castNum of sprite 3 = gCast2 + 2
  83.     set the castNum of sprite 2 = gCast1 + 1
  84.     updatestage
  85.     Wait .3
  86.     if the mousedown then
  87.       exit repeat
  88.     end if
  89.     
  90.     set the castNum of sprite 3 = gCast2 + 1
  91.     updatestage
  92.     Wait .3
  93.     if the mousedown then
  94.       exit repeat
  95.     end if
  96.     
  97.     set the castNum of sprite 3 = gCast2
  98.     set the castNum of sprite 2 = gCast1
  99.     updatestage
  100.     Wait .3
  101.     if the mousedown then
  102.       exit repeat
  103.     end if
  104.     
  105.     set RunThruCount = RunThruCount + 1
  106.   end repeat
  107.   set the castNum of sprite 2 = gCast1
  108.   set the castNum of sprite 3 = gCast2
  109.   updatestage
  110.   sound fadeOut 1, 2*60
  111.   set gbeenclicked = 0
  112. end